home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / miscuni.com / KEYS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-25  |  2.1 KB  |  72 lines
  1. (**********************************************************************)
  2. (*                               Keys                                 *)
  3. (*                                                                    *)
  4. (*                                                                    *)
  5. (*  Author:  Geoffrey W. Moehrke                                      *)
  6. (*  Date:  March 24, 1989                                             *)
  7. (*                                                                    *)
  8. (*  Purpose:  Module defining constants for misc keys and functions   *)
  9. (*            to classify certain groups of related keys.             *)
  10. (*                                                                    *)
  11. (*  Source: F:\TP\UNIT\KEYS.PAS                                       *)
  12. (**********************************************************************)
  13. Unit Keys;
  14.  
  15.   Interface
  16.  
  17.   Const
  18.      F1 = $3B00;    F6 = $4000;
  19.      F2 = $3C00;    F7 = $4100;
  20.      F3 = $3D00;    F8 = $4200;
  21.      F4 = $3E00;    F9 = $4300;
  22.      F5 = $3F00;   F10 = $4400;
  23.  
  24.      LArrow  = $4B00;
  25.      RArrow  = $4D00;
  26.      UpArrow = $4800;
  27.      DnArrow = $5000;
  28.      PgUp    = $4900;
  29.      PgDn    = $5100;
  30.      Home    = $4700;
  31.      EndKey  = $4F00;
  32.      Ins     = $5200;
  33.      Del     = $5300;
  34.      BS      = $0E08;
  35.      Enter   = $1C0D;
  36.      Tab     = $0F09;
  37.      ShiftTab= $0F00;
  38.      ESC     = $011B;
  39.  
  40.      Function EditKey( K : Word ): boolean;
  41.  
  42.      Function FuncKey( K : Word ): boolean;
  43.  
  44.    Implementation
  45.  
  46.      Function EditKey( K : Word ): boolean;
  47.  
  48.        begin
  49.          Case K of
  50.              LArrow, RArrow,
  51.              Ins, Del,
  52.              Home, EndKey,
  53.              BS,
  54.              Tab, ShiftTab  : EditKey := True;
  55.            else EditKey := False
  56.          end
  57.        end;
  58.  
  59.      Function FuncKey( K : Word ): boolean;
  60.  
  61.        begin
  62.          Case K of
  63.              F1, F2,
  64.              F3, F4,
  65.              F5, F6,
  66.              F7, F8,
  67.              F9, F10 : FuncKey := True;
  68.            else FuncKey := False
  69.          end { Case }
  70.        end;
  71.  
  72. end. { Unit Keys }